home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / util / conv / bineps_1_00.lha / BinEps / BinEpsWB < prev    next >
Text File  |  1994-07-23  |  3KB  |  140 lines
  1. ;#
  2. ;# File requester interface for BinEps
  3. ;#
  4. ;# $VER: BinEpsWB 39.0 (23.7.94) © 1994 By Alessandro Sala
  5. ;#
  6.  
  7. ;
  8. ;# Init messages with default language (english)
  9. ;
  10. set msg_src            "Select source EPS file"
  11. set msg_nosrc        "You must choose an EPS file!"
  12. set msg_dest        "Select destination file"
  13. set msg_prevask        "Do you want to add a preview image ?"
  14. set msg_noprev        "Don't add"
  15. set msg_prev        "Choose an image "
  16. set msg_done        "Conversion complete!"
  17.  
  18. set msg_canc_gad    "Cancel"
  19.  
  20. set msg_osver_err    """You need the 'requestchoice' and*N'requestfile' commands (AmigaOs 3.0*N or later) to use the WB interface*Nof BinEps."
  21.  
  22. ;
  23. ;# Select user language, if known
  24. ;
  25. ;
  26. ;## To add a new language, copy the following block and fill in the required
  27. ;## information
  28. ;
  29. if "$Language" eq "<your language>"
  30.     set msg_src            " "
  31.     set msg_nosrc       " "
  32.     set msg_dest        " "
  33.     set msg_prevask        " "
  34.     set msg_noprev        " "
  35.     set msg_prev        " "
  36.     set msg_done        " "
  37.  
  38.     set msg_canc_gad    " "
  39.  
  40.     set msg_osver_err    """ "
  41. endif
  42. ;
  43. ;## Italiano
  44. ;
  45. if "$Language" eq "italiano"
  46.     set msg_src            "Scegli il file EPS sorgente"
  47.     set msg_nosrc       "Devi scegliere un file EPS!"
  48.     set msg_dest        "Scegli il file destinazione"
  49.     set msg_prevask        "Vuoi aggiungere una immagine di preview ?"
  50.     set msg_noprev        "Non aggiungere"
  51.     set msg_prev        "Scegli un'immagine "
  52.     set msg_done        "Conversione completa!"
  53.  
  54.     set msg_canc_gad    "Cancel"
  55.  
  56.     set msg_osver_err    """Per usare l'interfaccia WB di BinEps*Nsono necessari i comandi 'requestchoice'*Ne 'requestfile' (AmigaOs 3.0 o successivo)."
  57. endif
  58.  
  59. ;
  60. ;# Start of program
  61. ;
  62. failat 10
  63.  
  64. ;
  65. ;# Check if needed commands exist
  66. ;
  67. if "`which requestchoice`" eq ""
  68.     echo ${msg_osver_err}
  69.     quit
  70. endif
  71.  
  72. if "`which requestfile`" eq ""
  73.     requestchoice >nil: "BinEps" ${msg_osver_err} "Ok"
  74.     quit
  75. endif
  76.  
  77.  
  78. ;
  79. ;# Request source file
  80. ;
  81. unset source
  82. set source `requestfile title "${msg_src}" negative ${msg_canc_gad} pattern #?.eps#f noicons`
  83. if not exists "$source"
  84.     requestchoice >nil: "BinEps" "${msg_nosrc}" "Ok"
  85.     quit
  86. endif
  87.  
  88. ;
  89. ;# Extract source file's path
  90. ;
  91. set drw " "
  92. set drw        `list "$source" lformat "%p"`
  93.  
  94. ;
  95. ;# Request destination file
  96. ;
  97. unset dest
  98. set dest `requestfile title "${msg_dest}" negative ${msg_canc_gad} drawer "$drw" noicons savemode`
  99. if "$dest" eq "*$dest"
  100.     set dest " "
  101. else
  102.     set dest """$dest"
  103. endif
  104.  
  105. ;
  106. ;# Ask if the user wants to add a preview bitmap
  107. ;
  108. set prevt `requestchoice "BinEps" "${msg_prevask}" "TIFF|Windows Metafile|${msg_noprev}"`
  109. if $prevt eq 0
  110.     set prevt " "
  111. else
  112.     if $prevt eq 1
  113.         set prevt "TIFF"
  114.     else
  115.         set prevt "WMF"
  116.     endif
  117. endif
  118.  
  119. ;
  120. ;# Request the preview file if needed
  121. ;
  122. unset prevf
  123. if not "$prevt" eq " "
  124.     set prevf `requestfile title "${msg_prev} ($prevt)" drawer "$drw" noicons`
  125. endif
  126.  
  127. if "$prevf" eq "*$prevf"
  128.     set prevf " "
  129.     set prevt " "
  130. else
  131.     set prevf """$prevf"
  132. endif
  133.  
  134. ;
  135. ;# Run BinEps
  136. ;
  137. BinEps "$source" $dest $prevt $prevf
  138.  
  139. requestchoice >nil: "BinEps" "${msg_done}" "Ok"
  140.